home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / print select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  81 lines
  1. 3 gosub10000
  2. 5 b=198:poke53281,1:poke53280,5
  3. 6 bl$="                                       ":open15,8,15,"i0":close15
  4. 7 open2,8,2,"$":forx=0to156:get#2,a$:     :next
  5. 8 get#2,a$:si=val(a$):close2
  6. 10 print"[147][144]        [204][207][193][196][211][212][193][210][160][200]ardcopy [211]etup         "
  7. 20 print"[196]o you have:":print:print"  [195]ommodore 1525"
  8. 30 print"  [195]ommodore 1526":print"  [195]ommodore [205][208][211] 801"
  9. 40 print"  [212]ymac [195]onnection"
  10. 50 print"  [195]ard/?[160][193], [194], or +[199]"
  11. 60 print"  [194]us[195]ard [201][197][197][197]"
  12. 70 print"or any other 1525-compatible setup?"
  13. 80 pokeb,.:waitb,1:geta$
  14. 90 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=-1:   goto300
  15. 100 ifa$<>"n"anda$<>"[206]"then80
  16. 110 print"[196]o you have a [195]ommodore 1520?"
  17. 115 forx=0to10:printbl$:next
  18. 120 pokeb,.:waitb,1:geta$
  19. 130 ifa$="y"ora$="[217]"thenpa=6:sa=0:          goto300
  20. 140 ifa$<>"n"anda$<>"[206]"then120
  21. 150 print"[196]o you have an old [195]ommodore 1515?"
  22. 155 forx=0to10:printbl$:next
  23. 160 pokeb,.:waitb,1:geta$
  24. 170 ifa$="y"ora$="[217]"thenpa=4:sa=7:c8%=0:    goto300
  25. 180 ifa$<>"n"anda$<>"[206]"then160
  26. 190 :
  27. 200 print"[207].[203]. then, please enter the correct"
  28. 202 print"data for your printer:"
  29. 203 forx=0to10:printbl$:next
  30. 204 print"[197]nter primary   address --";:inputpa$:pa=val(pa$)
  31. 206 print:print:print"[197]nter secondary address --";:inputsa$:sa=val(sa$)
  32. 300 :
  33. 301 print"":forx=0to10:printbl$:next
  34. 302 print"[208]rimary address of"pa"[157]."
  35. 304 print"[211]econdary address of"sa"[157]."
  36. 305 :
  37. 310 print"[193]re these selections correct?"
  38. 312 print"          [[217]/[206]] or [209] to [209]uit"
  39. 315 pokeb,0:waitb,1:geta$
  40. 320 ifa$<>"y"anda$<>"n"anda$<>"q"then315
  41. 325 :
  42. 330 ifa$="q"then1000
  43. 340 ifa$="n"then10
  44. 345 goto500
  45. 350 :
  46. 360 print"":forx=0to20:printbl$:next
  47. 370 print"   [208]lease make sure side"si"of your"
  48. 375 print"   [204][207][193][196][211][212][193][210] disk is in your drive."
  49. 380 print" [208]lease press a key when you are ready."
  50. 381 print"      ([208]ress [209] to [209]uit)"
  51. 382 pokeb,0:waitb,1:geta$:ifa$="q"then1000
  52. 402 gosub20000
  53. 410 print"   [208]rint file is now on this side"
  54. 412 print"            of the disk."
  55. 416 return
  56. 450 :
  57. 500 gosub360:iffl=1then500
  58. 510 ifsi=1thensi=2:goto530
  59. 520 ifsi=2thensi=1
  60. 530 gosub360:iffl=1then530
  61. 540 print"":forx=0to20:printbl$:next
  62. 542 print"[208]rocess now complete."
  63. 1000 fordl=1to1000:next:load"custom ls boot",8
  64. 10000 cr$=chr$(13)
  65. 10005 open15,8,15
  66. 10010 open3,8,4,"setup"
  67. 10020 input#3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  68. 10030 close3
  69. 10040 close15
  70. 10050 pa=val(d$(4)):sa=val(d$(5))
  71. 10060 return
  72. 20000 close15:open15,8,15
  73. 20010 d$(4)=mid$(str$(pa),2)
  74. 20012 d$(5)=mid$(str$(sa),2)
  75. 20070 open3,8,4,"setup":cr$=chr$(13)
  76. 20080 print#15,"p"chr$(0)"";
  77. 20082 print#3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  78. 20100 close3
  79. 20110 close15
  80. 20120 return
  81.